home *** CD-ROM | disk | FTP | other *** search
/ Designer's Club 1996 December / Designer's Club 1996 December.iso / pc / ideasrc / star.dir / 00134_Script_134 < prev    next >
Text File  |  1996-11-11  |  2KB  |  52 lines
  1. on startmovie
  2.   global slider, toolH, toolV, gallery
  3.   set slider = 0
  4.   set the locH of sprite 40 to toolH
  5.   set the locV of sprite 40 to toolV
  6.   set gallery = "slideshow"
  7. end
  8.  
  9. on stopmovie
  10.   global toolH, toolV
  11.   set toolH = the locH of sprite 40
  12.   set toolV = the locV of sprite 40
  13. end
  14.  
  15. on pressit button, swap  
  16.   puppetsound "clickdn"
  17.   repeat while the mousedown
  18.     set the visible of sprite button to false
  19.     updatestage
  20.   end repeat
  21.   set the visible of sprite button to true
  22.   puppetsound "clickup"
  23. end
  24.  
  25. on tools  
  26.   global slider
  27.   --go the frame
  28.   repeat with n = 41 to 46
  29.     puppetsprite n, true
  30.   end repeat
  31.   repeat with n = 41 to 46
  32.     set the locV of sprite n to the locV of sprite 40 + 42
  33.   end repeat
  34.   set the locH of sprite 41 to the locH of sprite 40 
  35.   set the locH of sprite 42 to the locH of sprite 40 - 116
  36.   set the locH of sprite 43 to the locH of sprite 40 - 69
  37.   set the locH of sprite 44 to the locH of sprite 40 - 22
  38.   set the locH of sprite 45 to the locH of sprite 40 + 34
  39.   set the locH of sprite 46 to the locH of sprite 40 + 104
  40.   updatestage
  41. end tools
  42.  
  43. on keyDown 
  44.   if the key = 1 then set the soundLevel to (1)
  45.   if the key = 2 then set the soundLevel to (2)
  46.   if the key = 3 then set the soundLevel to (3)
  47.   if the key = 4 then set the soundLevel to (4)
  48.   if the key = 5 then set the soundLevel to (5)
  49.   if the key = 6 then set the soundLevel to (6)
  50.   if the key = 7 then set the soundLevel to (7)
  51. end keydown
  52.